<!--#include virtual="/common/Config.asp" -->
<!--#include virtual="/common/conn.asp" -->
<!--#include virtual="/common/function.asp" -->
<%

Dim PI_ID		
Dim PI_Title	
Dim PI_Desc                
Dim PI_Type		
Dim PI_Area                
                
Dim PI_Link		
Dim PI_Address	
Dim PI_Tel		
Dim PI_Email	
Dim PI_Website	
Dim PI_QQ		
                
                
Dim PI_IsAudit	
Dim PI_IsTop	
Dim PI_IP		

Dim Update_Name
Dim Update_Date
Sub Get_Info()	
	PI_ID = requery("Info_ID")

	Call Check_IsNumeric(PI_ID)

	sql = "SELECT * FROM Person_Info WHERE PI_ID = " &PI_ID
	
	Set rs = conn.execute(sql)
	
	If Not rs.eof Then
		PI_ID		= rs("PI_ID")		
		PI_Title	= rs("PI_Title")
		PI_Desc		= rs("PI_Desc")
						
		PI_Type		= rs("PI_Type")		
		PI_Area		= rs("PI_Area")		
						
						
		PI_Link		= rs("PI_Link")		
		PI_Address	= rs("PI_Address")	
		PI_Tel		= rs("PI_Tel")		
		PI_Email	= rs("PI_Email")	
		PI_Website	= rs("PI_Website")	
		PI_QQ		= rs("PI_QQ")		
						
						
		PI_IsAudit = rs("PI_IsAudit")	
		PI_IsTop	= rs("PI_IsTop")	
		PI_IP		= rs("PI_IP")		
						
		Update_Name = rs("Update_Name")
		Update_Date = rs("Update_Date")
	End If
End Sub 
Sub Re_Person_List()
	Sql = "SELECT  TOP 9 b.PI_ID,b.PI_Title FROM uvw_Sort_Info a INNER JOIN Person_Info b ON a.Info_ID = b.PI_ID  WHERE  a.Sort_Sub_Name='推荐信息' ORDER  BY a.Sort_Order ASC"

	Info_List = GetRsRows(Sql)
	If IsArray(Info_List) Then 
		For i=0 To UBound(Info_List,2)
			PI_ID	= Info_List(0,i)
			PI_Title= Info_List(1,i)
			info_url= "info.asp?info_id="&PI_ID

			echo "<li><a href="""&info_url&""" target=_blank>"&Left(PI_Title,12)&"</a></li>"
		Next 
	
	End If 
End Sub 
Sub Corp_ZP_List()
	Sql = "SELECT  TOP 12 b.PI_ID,b.PI_Title,isnull(b.PI_Website,'') AS Pic FROM uvw_Sort_Info a INNER JOIN Person_Info b ON a.Info_ID = b.PI_ID  WHERE  a.Sort_Sub_Name='企业招聘' ORDER  BY a.Sort_Order ASC"

	Info_List = GetRsRows(Sql)
	If IsArray(Info_List) Then 
		For i=0 To UBound(Info_List,2)
			PI_ID	= Info_List(0,i)
			PI_Title= Info_List(1,i)
			Pic		= Info_List(2,i)

			info_url= "info.asp?info_id="&PI_ID

			'echo "<li><a href="""&info_url&""" target=_blank>"&Left(PI_Title,12)&"</a></li>"
			echo "<li><a href="""&info_url&""" target=_blank><img src="""&Pic&""" /></a></li>"
		Next 
	
	End If 
End Sub 
Sub QZ_Info_List()
	Sql = "SELECT  TOP 6 b.ID,b.Truename,b.Education,b.Professional FROM uvw_Sort_Info a INNER JOIN Person_QZ b ON a.Info_ID = b.ID  WHERE  a.Sort_Sub_Name='推荐求职信息' ORDER  BY a.Sort_Order ASC"
	Info_List = GetRsRows(Sql)
	If IsArray(Info_List) Then 
		For i=0 To UBound(Info_List,2)
			ID			= Info_List(0,i)
			Truename	= Info_List(1,i)
			XL			= Info_List(2,i)
			ZY			= Info_List(3,i)
			echo "<li><p>姓名："&Truename&"</p><p>学历："&XL&"</p><p>专业："&ZY&"</p></li>"
		Next 
	
	End If 
End Sub 

Dim Truename		
Dim Sex				
Dim Birthday		
Dim Nation			
Dim Location		
Dim Location_now	
Dim Married			
Dim Height			
Dim Self_Desc
Dim Education		
Dim Professional	
Dim School			
Dim Work_Year		
Dim School_Time		
Dim Pro_Desc		

Dim Mobile			
Dim Email			
Dim contact			

Dim Work_Corp		
Dim Work_Time		
Dim Work_Post		
Dim Corp_Type		
Dim Work_Desc		


Dim Qz_Type			
Dim Qz_Type2		
Dim Qz_Salary	
Dim Qz_Post
Sub Get_Qz_Info()
	qz_id = requery("qz_id")

	Call Check_IsNumeric(qz_id)

	sql = "SELECT * FROM Person_QZ WHERE ID = " &qz_id
		
	Set rs = conn.execute(sql)
	
	If Not rs.eof Then
		Truename = rs("Truename")		
		Sex = rs("Sex")				
		Birthday = rs("Birthday")		
		Nation = rs("Nation")			
		Location = rs("Location")		
		Location_now = rs("Location_now")	
		Married = rs("Married")			
		Height = rs("Height")			
		Self_Desc = encode_article(rs("Self_Desc"))

		Education = rs("Education")		
		Professional = rs("Professional")	
		School = rs("School")			
		Work_Year = rs("Work_Year")		
		School_Time = rs("School_Time")		
		Pro_Desc = encode_article(rs("Pro_Desc"))		

		Mobile = rs("Mobile")			
		Email = rs("Email")			
		contact = rs("contact")			

		Work_Corp = rs("Work_Corp")		
		Work_Time = rs("Work_Time")		
		Work_Post = rs("Work_Post")		
		Corp_Type = rs("Corp_Type")		
		Work_Desc = encode_article(rs("Work_Desc"))		


		Qz_Type = rs("Qz_Type")			
		Qz_Type2 = rs("Qz_Type2")		
		Qz_Salary = rs("Qz_Salary")
		Qz_Post = rs("Qz_Post")
	End If
	rs.close

End Sub 

Function  get_info_ad(sort_type)
	sort_type = "分类信息横副广告"
	Sql = "SELECT b.Site_Logo,b.Site_Url FROM uvw_Sort_Info a INNER JOIN Friend_Link b ON a.Info_ID = b.Site_ID  WHERE  a.Sort_Sub_Name='"&sort_type&"' ORDER  BY a.Sort_Order ASC"
	Array_List = GetRsRows(Sql)
	If IsArray(Array_List) Then 
		Site_Logo = Array_List(0,0)
		Site_Url  = Array_List(1,0)

		get_info_ad = "<a href="""&Site_Url&""" target=_blank><img src="""&Site_Logo&""" width=498 heigh=80 border=0/></a>"
		
	Else
		get_info_ad = ""
	End If 
End Function 

Dim Post_Type		
Dim Post			
Dim Post_Desc		

Dim Salary			

Dim End_Date		
Dim Post_Date		

Dim Corp_Name	
Dim Link_Man	
Dim Link_Mobile	
Dim Fax			
Dim Zip			
Dim Address		
Dim Corp_Desc	
Dim Url			


Sub Get_ZP_Info()
	zp_id = requery("zp_id")

	Call Check_IsNumeric(zp_id)

	sql = "SELECT * FROM Corp_Offers WHERE ID = " &zp_id

	Set rs = conn.execute(sql)
	
	If Not rs.eof Then
		Post_Type = rs("Post_Type")		
		Post = rs("Post")			
		Post_Desc = encode_article(rs("Post_Desc"))

		Location = rs("Location")		
		Salary = rs("Salary")			

		End_Date = rs("End_Date")		
		Post_Date = rs("Post_Date")	
		UserName= rs("UserName")
		Corp_Name		 = Get_FirstValue("SELECT Corp_Name FROM Corp_Info WHERE UserName='"&UserName&"'")
	End If
	rs.close

	sql = "SELECT * FROM Corp_Info   WHERE UserName='"&UserName&"'"

	Set rs = conn.execute(sql)
	
	If Not rs.eof Then
		Corp_Name = rs("Corp_Name")	
		Link_Man = rs("Link_Man")	
		Link_Mobile = rs("Link_Mobile")	
		Fax = rs("Fax")			
		Email = rs("Email")		
		Zip = rs("Zip")			
		Address = rs("Address")		
		Corp_Desc = encode_article(rs("Corp_Desc"))
		Url = rs("Url")			
	End If
	rs.close

End Sub 
%>
